Softdisk for Windows 42/Softdisk for Windows 42.iso/QUARRY/QUARRY.EXE/QUARRY.dxr/00086_DOSITDOWNRED.ls

Text File | 1998-01-01 | 531 b | 22 lines

on DOSITDOWNRED
  global GRIDV, GRIDH, GRIDY, TURN, SOND, TBBB, TB
  set TB to 0
  set TBBB to 0
  if TURN = 1 then
    repeat while TB = 0
      set TBBB to random(140)
      if getAt(GRIDV, TBBB) = 3 then
        if SOND = 0 then
          puppetSound("SIT")
        end if
        set the locH of sprite 29 to getAt(GRIDH, TBBB)
        set the locV of sprite 29 to getAt(GRIDY, TBBB)
        set the castNum of sprite 29 to 72
        updateStage()
        set TB to 1
      end if
    end repeat
  end if
  REMOVESPRITE()
end